home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / gsdbloo.exe / DEMOB001.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-24  |  1.1 KB  |  38 lines
  1. program DemoB001;
  2. {------------------------------------------------------------------------------
  3.                               DBase File Creator
  4.                                    Sample 1
  5.                                  Demo Program
  6.  
  7.        Copyright (c)  Richard F. Griffin
  8.  
  9.        10 February 1992
  10.  
  11.        102 Molded Stone Pl
  12.        Warner Robins, GA  31088
  13.  
  14.        -------------------------------------------------------------
  15.  
  16.        The DEMOB1.DBF file will be created by using the MakeTestData
  17.        procedure in GS_GENF.PAS.
  18.  
  19. -------------------------------------------------------------------------------}
  20.  
  21. uses
  22.    CRT,
  23.    DOS,
  24.    GS_GenF;
  25.  
  26. begin
  27.    ClrScr;
  28.  
  29. {-----------------------------------------------------------------------------}
  30. {  This call will create a .DBF file containing 20 records without memos.                   }
  31. {  See the GS_GENF.PAS file to see how it works.                              }
  32. {-----------------------------------------------------------------------------}
  33.  
  34.    writeln('Creating DemoB1.DBF');
  35.    MakeTestData('DemoB1', 20, false);
  36.    writeln('DemoB1.DBF Created');
  37. end.
  38.